perm filename F4.F4[MUS,LCS] blob sn#249538 filedate 1976-11-22 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		J=1
C00003 ENDMK
CāŠ—;
	J=1
	CALL OFILE(21,'XXX')
2	WRITE(21,1)J
1	FORMAT(I)
	END